﻿Public Class frmAD_CapNhatTaiKhoan
    Public _taikhoanDTO As New TaiKhoanDTO
    Public _taikhoanBUS As New TaiKhoanBUS
    Public _svDTO As New SinhVienDTO
    Public _svBUS As New SinhVienBUS
    Public _cnDTO As New ChuNhaDTO
    Public _cnBUS As New ChuNhaBUS
    Public _qtDTO As New QuanTriDTO
    Public _qtBUS As New QuanTriBUS
    Public _tableTaiKhoan As New DataTable
    Private Sub btnHuyTK_Click(sender As System.Object, e As System.EventArgs) Handles btnHuyTK.Click
        Me.Close()
    End Sub

    Private Sub btnCapNhatTK_Click(sender As System.Object, e As System.EventArgs) Handles btnCapNhatTK.Click
        Dim result As DialogResult = MessageBox.Show("Bạn có chắc chắn thực hiện điều này?", "Thông báo", MessageBoxButtons.YesNo)
        If result = DialogResult.Yes Then
            If cbLoaiTK.Text = "Sinh Viên" Then
                If cbTrangThai.Text = "Đang mở" Then
                    _taikhoanDTO.TrangThai = 1
                ElseIf cbTrangThai.Text = "Đã xóa" Then
                    _taikhoanDTO.TrangThai = 0
                End If
                _svDTO.CMND = txtCMND.Text
                _svDTO.DienThoai = txtDienThoai.Text
                _svDTO.Email = txtEmail.Text
                _svDTO.HoTen = txtHoTen.Text
                _svDTO.Truong = txtTruong.Text
                _taikhoanDTO.MatKhau = txtMatKhau.Text
                _taikhoanDTO.MaLoai = 2
                _svBUS.Update(_svDTO)
                _taikhoanBUS.Update(_taikhoanDTO)
                MessageBox.Show("Thông tin đã được cập nhật thành công", "Thông báo")
            ElseIf cbLoaiTK.Text = "Chủ Nhà" Then
                If cbTrangThai.Text = "Đang mở" Then
                    _taikhoanDTO.TrangThai = 1
                ElseIf cbTrangThai.Text = "Đã xóa" Then
                    _taikhoanDTO.TrangThai = 0
                End If
                _cnDTO.CMND = txtCMND.Text
                _cnDTO.DienThoai = txtDienThoai.Text
                _cnDTO.Email = txtEmail.Text
                _cnDTO.HoTen = txtHoTen.Text
                _taikhoanDTO.MatKhau = txtMatKhau.Text
                _taikhoanDTO.MaLoai = 3
                _cnBUS.Update(_cnDTO)
                _taikhoanBUS.Update(_taikhoanDTO)
                MessageBox.Show("Thông tin đã được cập nhật thành công", "Thông báo")
            ElseIf cbLoaiTK.Text = "Quản Trị" Then
                If cbTrangThai.Text = "Đang mở" Then
                    _taikhoanDTO.TrangThai = 1
                ElseIf cbTrangThai.Text = "Đã xóa" Then
                    _taikhoanDTO.TrangThai = 0
                End If
                _qtDTO.CMND = txtCMND.Text
                _qtDTO.DienThoai = txtDienThoai.Text
                _qtDTO.Email = txtEmail.Text
                _qtDTO.HoTen = txtHoTen.Text
                _taikhoanDTO.MatKhau = txtMatKhau.Text
                _taikhoanDTO.MaLoai = 1
                _qtBUS.Update(_qtDTO)
                _taikhoanBUS.Update(_taikhoanDTO)
                MessageBox.Show("Thông tin đã được cập nhật thành công", "Thông báo")
            End If
            _tableTaiKhoan = _taikhoanBUS.GetAll()
            frmQuanTri.dgvTaiKhoan.DataSource = _tableTaiKhoan
            frmQuanTri.dgvTaiKhoan.Show()
            frmQuanTri.dgvTaiKhoan.Refresh()
            Me.Close()
        Else
            Me.Close()
        End If
    End Sub

    Private Sub frmAD_CapNhatTaiKhoan_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        txtTenTK.Text = _taikhoanDTO.TenTaiKhoan
        txtMatKhau.Text = _taikhoanDTO.MatKhau
        txtMatKhauLapLai.Text = _taikhoanDTO.MatKhau
        If _taikhoanDTO.TrangThai = 1 Then
            cbTrangThai.Items.Add("Đang mở")
        ElseIf _taikhoanDTO.TrangThai = 0 Then
            cbTrangThai.Items.Add("Đã xóa")
        End If
        cbTrangThai.Items.Add("Đang mở")
        cbTrangThai.Items.Add("Đã xóa")
        cbTrangThai.SelectedIndex = 0
        If _taikhoanDTO.MaLoai = 1 Then
            cbLoaiTK.Items.Add("Quản Trị")
            _cnDTO = _cnBUS.GetItemID(txtTenTK.Text)
            txtCMND.Text = _cnDTO.CMND
            txtDienThoai.Text = _cnDTO.DienThoai
            txtEmail.Text = _cnDTO.Email
            txtHoTen.Text = _cnDTO.HoTen
        ElseIf _taikhoanDTO.MaLoai = 2 Then
            cbLoaiTK.Items.Add("Sinh Viên")
            _svDTO = _svBUS.GetItemTenDN(txtTenTK.Text)
            txtCMND.Text = _svDTO.CMND
            txtDienThoai.Text = _svDTO.DienThoai
            txtEmail.Text = _svDTO.Email
            txtHoTen.Text = _svDTO.HoTen
            txtTruong.Text = _svDTO.Truong
        ElseIf _taikhoanDTO.MaLoai = 3 Then
            cbLoaiTK.Items.Add("Chủ Nhà")
            _cnDTO = _cnBUS.GetItemID(txtTenTK.Text)
            txtCMND.Text = _cnDTO.CMND
            txtDienThoai.Text = _cnDTO.DienThoai
            txtEmail.Text = _cnDTO.Email
            txtHoTen.Text = _cnDTO.HoTen
        End If
        cbLoaiTK.Items.Add("Sinh Viên")
        cbLoaiTK.Items.Add("Chủ Nhà")
        cbLoaiTK.Items.Add("Quản Trị")
        cbLoaiTK.SelectedIndex = 0
    End Sub
End Class